perm filename BTP[MUS,LCS] blob sn#030344 filedate 1974-01-08 generic text, type T, neo UTF8
00100	ARRAY F3,F5,F2,F10,F11,F12(512);SYNTH(F5);1 1 2 1 3 .1 4 .1 999;        
00200	 SYNTH(F3);1 1 999;                                                         
00300	 COMPILE;INSTRUMENT TRPT; OSCIL(P4,MAG/P2,P5);                              
00400	 INTRP(P6*P8*MAG,P7*P8*MAG,P5); COSCIL(U2,P8*MAG,F3);
00500	 COSCIL(U1,P3*MAG+U3,F3); OUTA←OUTA+U4;END;
00600	 FINISH;
00700	SEG(F2);0 0  1.1 4  .75 13 .68 85  .5 92 0 100;
00800	SEG(F10);0 0 1 20  1 90 .5 100;SEG(F11);.5 0 1 10 1 90 .5 100;
00900	SEG(F12);.5 0 1 10 1 92 0 100;
01000	PLAY;TRPT 0 .25 C*2 1100 F2 1 5 P3+.5;FINISH;